perm filename PASFOO.FAI[PAS,SYS] blob sn#332861 filedate 1978-09-07 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		title	pasfoo
C00003 ENDMK
CāŠ—;
	title	pasfoo
st:	jrst	norm
	movei	1,1
	outstr	[asciz \* You should no longer type "/PROC PASCAL[PAS,EJG]" *
\]
swapit:	hrrm	1,getadr+3
swap2:	outstr	[asciz \Swapping to SYS:PASCAL.DMP
\]
	movei	1,getadr
	swap	1,
	halt	swap2

norm:	movei	1,0
	outstr	[asciz \* Next time, use "R PASCAL" instead of "RUN PASCAL[PAS,EJG]" *
\]
	jrst	swapit

getadr:	'SYS   '
	'PASCAL'
	'DMP   '
	0,,0
	'  1  3'
	0

	end	st